<!--#include file="company_profile_1st.asp"-->
<!--#include file="messaggi_localizzati_2nd.asp"-->
<!--#include file="saveDB.asp"-->
<% 


'------------------------------procedura di invio mail e output messaggio di risposta----------------
'CONTATTI ALLSOFT V 2.0 di Marco Pastorello

'TODO
'Sistemare il caso di valori tutti vuoti

dim i,cnt,str_email,str_err,email_utente
dim html_amministratore,html_utente
dim arrForm()
dim arrNames,arrValues,arrAlt
Redim arrForm(Request.Form.count)

'===================================================================================================================
'CONFIGURAZIONE
Session("mailserver_type") = "sianet" ' o "aruba"
separatore="##"

Const INOLTRO_UTENTE=true

if(Session("lang")<>"") then
LANG=Session("lang")
else
LANG="IT"
end if



if(Session("form_subject")<>"") then
EMAIL_INTESTAZIONE=Session("form_subject") 
EMAIL_OGGETTO=Session("form_subject")
else
EMAIL_INTESTAZIONE="CONTACT"
EMAIL_OGGETTO="CONTACT"
end if

'===================================================================================================================

email_utente=""
cnt=0

'controllo corretta formattazione
arrNames=split(request.Form("nome_campi"), separatore ,-1, 1)
arrAlt=split(request.Form("alt_campi"), separatore ,-1, 1)
arrValues=split(request.Form("value_campi"), separatore ,-1, 1)

if request.Form("email")<>"" then
			email_utente=request.Form("email")
			else 
			str_err="ERROR"
end if


'Debug FOR
'for each fField in arrNames
'response.Write(cnt&"-"&arrNames(cnt) & "=")
'response.Write(arrValues(cnt) & ";")
'aggiorno contatore
'cnt=cnt+1
'next



cnt=Ubound(arrNames)
'response.Write(Ubound(arrNames) & Ubound(arrValues) &cnt)


dim mail_utente_header,mail_utente_footer
select case LANG

case "IT"
mail_utente_header=MAIL_GENERIC_H_IT
mail_utente_footer=MAIL_GENERIC_F_IT
MESSAGGIO_FINALE_OK=MESSAGE_OK_IT
MESSAGGIO_FINALE_KO=MESSAGE_KO_IT
case "EN"
mail_utente_header=MAIL_GENERIC_H_EN
mail_utente_footer=MAIL_GENERIC_F_EN
MESSAGGIO_FINALE_OK=MESSAGE_OK_EN
MESSAGGIO_FINALE_KO=MESSAGE_KO_EN
case "DE"
mail_utente_header=MAIL_GENERIC_H_DE
mail_utente_footer=MAIL_GENERIC_F_DE
MESSAGGIO_FINALE_OK=MESSAGE_OK_DE
MESSAGGIO_FINALE_KO=MESSAGE_KO_DE
case "FR"
mail_utente_header=MAIL_GENERIC_H_FR
mail_utente_footer=MAIL_GENERIC_F_FR
MESSAGGIO_FINALE_OK=MESSAGE_OK_FR
MESSAGGIO_FINALE_KO=MESSAGE_KO_FR
case "ES"
mail_utente_header=MAIL_GENERIC_H_ES
mail_utente_footer=MAIL_GENERIC_F_ES
MESSAGGIO_FINALE_OK=MESSAGE_OK_ES
MESSAGGIO_FINALE_KO=MESSAGE_KO_ES

CASE ELSE
mail_utente_header=MAIL_GENERIC_H_IT
mail_utente_footer=MAIL_GENERIC_F_IT
MESSAGGIO_FINALE_OK=MESSAGE_OK_IT
MESSAGGIO_FINALE_KO=MESSAGE_KO_IT
END SELECT


'controllo che posso inviare la mail
if str_err<>"" then
	response.write "<p>"&MESSAGGIO_FINALE_KO&"</p><br>"
	else



if(REGISTER_ON_DB) then
save_data_on_DB()
end if


'EMAIL INTESTAZIONE
'================================================================
'Email Amministrativa
'================================================================
'Metto l'header
html_amministratore = MAIL_ADMIN_GENERIC_HEADER

'CAMPI -> nella mail
for i=0 to cnt
	

		if arrNames(i)<>"" then

			
			html_amministratore=html_amministratore&"<b>"&arrAlt(i)&":</b>&nbsp;"&arrValues(i)&"<br>"
			
			
		end if
		
		
		
	next

	'Metto il footer
html_amministratore = html_amministratore & MAIL_ADMIN_GENERIC_FOOTER

'===================================================================
'===================================================================


'EMAIL_INTESTAZIONE_UTENTE
'================================================================
'Email Utente
'================================================================




html_utente = mail_utente_header

'CAMPI -> nella mail
for i=0 to cnt
	
		'response.write mid(arrForm(cnt),4,len(arrForm(cnt))-6)&"<br>"
		if arrNames(i)<>"" then
			html_utente=html_utente&"<b>"&arrAlt(i)&":</b>&nbsp;"&arrValues(i)&"<br>"
		end if
		
next

html_utente = html_utente &  mail_utente_footer
	
'===================================================================
'===================================================================
	'==LOG AS3
	call inviaMailAS3(AS3_LOG_EMAIL, COMPANY_EMAIL, COMPANY_NAME & " - " & EMAIL_OGGETTO, html_amministratore, "")
	'==LOG Cliente
	call inviaMailAS3(COMPANY_PR_EMAIL, COMPANY_EMAIL, COMPANY_NAME & " - " & EMAIL_OGGETTO, html_amministratore, "")
	
	
	if (email_utente<>"" and INOLTRO_UTENTE) then
			call inviaMailAS3(email_utente, COMPANY_EMAIL, COMPANY_NAME & " - " & EMAIL_OGGETTO, html_utente, "")
	end if
	response.write "<p>"&MESSAGGIO_FINALE_OK&"</p><br>"
end if
%>